EasyPG: Fix bug with C-x C-s after M-x epa-file-select-keys.

diff --git a/lisp/epa-file.el b/lisp/epa-file.el
index e3c4a83deb8689d37ae061a1a7f76fe2f23904fd..558048403ce8b3b0a77533bee57c95996d5361c1 100644 (file)
--- a/lisp/epa-file.el
+++ b/lisp/epa-file.el
@@ -285,10 +285,13 @@ If no one is selected, symmetric encryption will be performed.  "
   (interactive)
   (make-local-variable 'epa-file-encrypt-to)
   (setq epa-file-encrypt-to
+       (mapcar
+        (lambda (key)
+          (epg-sub-key-id (car (epg-key-sub-key-list key))))
        (epa-select-keys
         (epg-make-context)
         "Select recipents for encryption.
-If no one is selected, symmetric encryption will be performed.  ")))
+If no one is selected, symmetric encryption will be performed.  "))))
 
 ;;;###autoload
 (defun epa-file-enable ()